function AnalyseNatureRetracted2(n2,ValueTime)

ValueFolder2='/sps/isc/rneveu/EtudeIRM/Nature/ResultsRetracted/';
load([ValueFolder2 'AnalyseAuthorsRetractedArticleBeforeAfter.mat']);
ValueFileTemp3=['ResultsRetractedAuthors' num2str(n2) 'ArticleBeforeAfter' num2str(ValueTime) '.mat'];
ValueTemp=dir([ValueFolder2 ValueFileTemp3]);
if size(ValueTemp,1)==0
    VecA=192:1:198;
    VecA=[VecA 65];
    Veca=224:1:230;
    Veca=[Veca 97];
    VecC=[199 67];
    Vecc=[231 99];
    VecE=200:203;
    VecE=[VecE 69];
    Vece=232:1:235;
    Vece=[Vece 101];
    VecI=204:207;
    VecI=[VecI 73];
    Veci=236:1:239;
    Veci=[Veci 105];
    Vecn=[241 110];
    VecO=210:214;
    VecO=[VecO 216 79];
    Veco=242:1:246;
    Veco=[Veco 248 111];
    VecU=217:1:220;
    VecU=[VecU 85];
    Vecu=249:1:252;
    Vecu=[Vecu 117];
    VecY=[221 89];
    Vecy=[253 121];
    Vecs=[223 115];
    VecSpecialCharacters=[{VecA} {Veca} {VecC} {Vecc} {VecE} {Vece} {VecI} {Veci} {Vecn} {VecO} {Veco} {VecU} {Vecu} {VecY} {Vecy} {Vecs}];

    ValueTemp4=clock;
    disp(['Start of the processing at ' num2str(ValueTemp4(1,4)) ':' num2str(ValueTemp4(1,5)) ':' num2str(ValueTemp4(1,6))]);
    % ValueDate11=VecAuthorsRetractedFirstLast{n2,2};
    % VecResultsRetracted=FilterAuthorsRetracted(n2,ValueDate11(1,1),ValueDate11(1,2),VecAuthorsRetractedFirstLast{n2,1},VecSpecialCharacters);
    % ValueDate11=VecAuthorsRetractedIntermediate{n2,2};
    % VecResultsRetracted=FilterAuthorsRetracted(n2,ValueDate11(1,1),ValueDate11(1,2),VecAuthorsRetractedIntermediate{n2,1},VecSpecialCharacters);
    VecValueTemp=VecAuthorsRetracted{n2,1};
    ValueDate11=VecAuthorsRetracted{n2,5};
    ValueTemp=find(VecValueTemp==',');
    ValueTemp=[0 ValueTemp size(VecValueTemp,2)+1];
    VecResults=[-24;24];
    VecResults2=[-24;24];
    for n1=1:size(ValueTemp,2)-1
        ValueName=VecValueTemp(1,ValueTemp(1,n1)+1:ValueTemp(1,n1+1)-1);
        [VecResultsTemp,VecResultsTemp2]=FilterAuthorsRetracted2(n2,ValueDate11(1,1),ValueDate11(1,2),ValueName,VecSpecialCharacters,ValueTime);
        VecResults=[VecResults VecResultsTemp(:,end)];
        VecResults2=[VecResults2 VecResultsTemp2(:,end)];
    end
    VecResultsRetracted=VecResults;
    VecResultsOriginal=VecResults2;
    ValueTemp4=clock;
    disp([num2str(n2) ' elements processed at ' num2str(ValueTemp4(1,4)) ':' num2str(ValueTemp4(1,5)) ':' num2str(ValueTemp4(1,6))]);
    save([ValueFolder2 ValueFileTemp3],'VecResultsRetracted','VecResultsOriginal','ValueTime');
end